home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
makeio.zip
/
DEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-06-04
|
5KB
|
102 lines
Uses fastttt5,iottt5,miscttt5,crt,dos;
Type
Item_Rec = record
s:string;
r:real;
i:integer;
b:byte;
w:word;
l:longint;
End;
var items:array[1..14] of Item_Rec;
Procedure Set_up_screen;
Begin
FastWrite(1,1,attr(Yellow,Red),'╔══════════════════════════════════════════════════════════════════════════════╗');
FastWrite(1,2,attr(Yellow,Red),'║ F-10 to EXIT ║');
FastWrite(1,3,attr(Yellow,Red),'║ (c) 1990 by Richard N. Alger ║');
FastWrite(1,4,attr(Yellow,Red),'╟──────────────────────────────────────────────────────────────────────────────╢');
FastWrite(1,5,attr(Yellow,Red),'║ ║');
FastWrite(1,6,attr(Yellow,Red),'║ Social Security No. ║');
FastWrite(1,7,attr(Yellow,Red),'║ ║');
FastWrite(1,8,attr(Yellow,Red),'║ ║');
FastWrite(1,9,attr(Yellow,Red),'║ ║');
FastWrite(1,10,attr(Yellow,Red),'║ Address City State Zip ║');
FastWrite(1,11,attr(Yellow,Red),'║ ║');
FastWrite(1,12,attr(Yellow,Red),'║ Business Location Business Phone ║');
FastWrite(1,13,attr(Yellow,Red),'║ ║');
FastWrite(1,14,attr(Yellow,Red),'║ Organization Name ║');
FastWrite(1,15,attr(Yellow,Red),'║ ║');
FastWrite(1,16,attr(Yellow,Red),'║ Account Numbers - Travel: Meals: Entertainment: ║');
FastWrite(1,17,attr(Yellow,Red),'║ ║');
FastWrite(1,18,attr(Yellow,Red),'║ Ledger Location: Department: ║');
FastWrite(1,19,attr(Yellow,Red),'╠══════════════════════════════════════════════════════════════════════════════╣');
FastWrite(1,20,attr(Yellow,Red),'║ ║');
FastWrite(1,21,attr(Yellow,Red),'║ ║');
FastWrite(1,22,attr(Yellow,Red),'║ ║');
FastWrite(1,23,attr(Yellow,Red),'║ ║');
FastWrite(1,24,attr(Yellow,Red),'╚══════════════════════════════════════════════════════════════════════════════╝');
WriteAT(3,2,White,Red,'version 1.2');
WriteAT(30,2,LightBlue,Red,'TRAVEL');
WriteAT(37,2,LightRed+Blink,Red,'EXPENSE');
WriteAT(45,2,LightBlue,Red,'REPORT');
WriteAT(3,6,LightGreen,Red,'Employee Name');
WriteAT(27,8,LightGreen,Red,'COMPLETE REMITTANCE ADDRESS');
WriteAT(23,21,White,Red,'R. N. A. International Corporation');
Create_Fields(14);
Add_Field(1,14,2,14,2,18,6);
Add_Field(2,1,3,1,3,67,6);
Add_Field(3,2,4,2,4,12,10);
Add_Field(4,3,5,3,5,44,10);
Add_Field(5,4,6,4,6,66,10);
Add_Field(6,5,7,5,7,74,10);
Add_Field(7,6,8,6,8,22,12);
Add_Field(8,7,9,7,9,55,12);
Add_Field(9,8,10,8,10,22,14);
Add_Field(10,9,11,9,11,30,16);
Add_Field(11,10,12,10,12,45,16);
Add_Field(12,11,13,11,13,68,16);
Add_Field(13,12,14,12,14,21,18);
Add_Field(14,13,1,13,1,58,18);
String_field(1,items[1].s,'**************************');
String_field(2,items[2].s,'###-##-####');
String_field(3,items[3].s,'*************************');
String_field(4,items[4].s,'**************');
String_field(5,items[5].s,'!!');
String_field(6,items[6].s,'#####');
String_field(7,items[7].s,'****************');
String_field(8,items[8].s,'(###)###-####');
String_field(9,items[9].s,'********************************************************');
String_field(10,items[10].s,'#####');
String_field(11,items[11].s,'#####');
String_field(12,items[12].s,'#####');
String_field(13,items[13].s,'####');
String_field(14,items[14].s,'####');
Display_All_Fields;
End;
Procedure Reset_Fields;
Var a:byte;
Begin
For a:=1 to 14 do
Begin
Items[a].s:='';
Items[a].r:=0;
Items[a].i:=0;
Items[a].b:=0;
Items[a].w:=0;
Items[a].l:=0;
End;
End;
{++++++++++++++MAIN PROGRAM+++++++++++++++}
Begin
Reset_fields;
Set_Up_Screen;
Process_input(1);
End.